home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / progs / DIRECTOR / data.z / Lists Lingo.dir / Scripts_118_deleteProp aPropertyList.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  398 b   |  12 lines
  1. on mouseDown
  2.   global gDefaultPropList
  3.   doButton()
  4.   set vProperty to the text of member "Adding Property DeleteAt Input Field 2"
  5.   set vProperty to stripSpaces(vProperty)
  6.   set vProperty to checkValue(vProperty)
  7.   if vProperty <> EMPTY then
  8.     deleteProp(gDefaultPropList, vProperty)
  9.     set the text of member "Adding Property DeleteAt Display Field 1" to string(gDefaultPropList)
  10.   end if
  11. end
  12.